home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / prgtools / pbvl010.zip / TUTOR1_3.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  2KB  |  52 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: TUTOR1_3.BAS                                                   │
  3. '│ PURPOSE: PB/VISION(tm) LITE Tutorial Example Program                    │
  4. '├─────────────────────────────────────────────────────────────────────────┤
  5. '│ For instant help on any PB/VISION(tm) keyword, place the cursor on that │
  6. '│ keyword and press <CTRL-F1>.  The PB/VISION(tm) index can be accessed   │
  7. '│ by pressing <SHIFT-F1> twice.  The file "PBVLITE.PBH" _must_ be in the  │
  8. '│ same directory as the PowerBASIC IDE (PB.EXE) for this feature to work  │
  9. '│ properly.                                                               │
  10. '└─────────────────────────────────────────────────────────────────────────┘
  11.  
  12. %ISPBU = 0
  13.  
  14. DEFINT A-Z
  15. $DYNAMIC
  16.  
  17. $INCLUDE ".\WINDOW.BI"
  18.  
  19. ' ─ ■ 1.3.1 - DO YOU WANT TEXT OR GRAPHICS? ───────────────────────────────
  20.  
  21.     APP.GRAPHICSMODE = 1                    ' adds graphical mapping
  22.  
  23. ' ─ ■ 1.3.2 - CHANGING DESKTOP COLORS ─────────────────────────────────────
  24.  
  25.     APP.ATTR = &H9F                         ' sets desktop color
  26.     APP.PATTERN = 32                        ' sets desktop fill pattern
  27.  
  28. ' ─ ■ 1.3.3 - ADDING A "TITLE BAR" TO THE DESKTOP ─────────────────────────
  29.  
  30.     APPTITLE &HF0, "TUTOR1_3.BAS - ANOTHER FUN-FILLED PB/VISION TUTORIAL"
  31.  
  32.     APPINIT
  33.  
  34.     Edna = WINOPEN(10, 40, &H10, 1, &H1F, "AUNT EDNA'S HOUSE", &HE0, %SHADOW)
  35.  
  36.     WINSHOW Edna, 0, 0, 25, 80
  37.  
  38.     UncleBob = WINPOPUP(15, 40, 5, 30, &H47, 1, &H4F, "UNCLE BOB'S HOUSE", &HF0, %SHADOW)
  39.  
  40.     WINPRINT Edna, 5, 0, &H1E, "Hello Aunt Edna"
  41.     WINPRINT UncleBob, 2, 0, -1, "Yo! Uncle Bob"
  42.  
  43.     WHILE INKEY$ = "": WEND
  44.  
  45.     WINCLOSE Edna
  46.     WINCLOSE UncleBob
  47.  
  48.     APPCLOSE
  49.  
  50.     END
  51.  
  52.